﻿Imports System.Xml

Namespace Stories
	Public Class XmlAttribute
		Inherits Child

		Public Overrides Function ToString() As String
			Return Me.Self
		End Function

		Public Property Self As String

		Public Property Name As String

		Public Property Value As String

		Public Shared Function ReadXml(reader As XmlReader) As XmlAttribute
			Dim xa As New XmlAttribute()

			xa.Self = reader.GetAttribute("Self")
			xa.Name = reader.GetAttribute("Name")
			xa.Value = reader.GetAttribute("Value")

			Return xa
		End Function
	End Class
End Namespace